Top 10k strings from Othello (1998)(Laszlo Nyitrai)(128k)(hu).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

  19 a$; AT 9,24;a$; AT 3,1;a$; 
   2 ;"VEZET A FEH
   2 ;" ";x;":";
   2  Nyitrai '98
   1 x a feher,y a fekete korong
   1 valtakozo lepesek
   1 uzenet torlese
   1 uj jatek indul
   1 t valtozo,a lepesek szamlaloja
   1 r)=p: LET h=r: GO SUB 1080:
   1 p=w ugyanolyan szinu korongok
   1 p=m: GO SUB 1080: LET p=4: 
   1 p=b+(w-b)*(t/2
   1 nincs tobb hely,a jatek vege
   1 m: GO SUB 1080
   1 lepesek bevitele a megfelelo koordinatak megadasaval
   1 kezdjuk a jatekot
   1 ha tele van egy sor,ujra valaszthatunk a kovetkezore
   1 ha az f valtozo erteke=0,nincs tovabb,az ertekelo sorra ugrik
   1 ha a j=2 a jateknak vege
   1 elmentjuk az utokornak
   1 elkeszitjuk a korongokat
   1 b(a(i)+c*n)=p
   1 b(a(i)+c*n)=4
   1 b a feher szin,w a fekete
   1 az i valtozo leptetese eggyel tovabb
   1 az ekezetes betuk
   1 alapertekek beallitasa,a lepestombok elkeszitese
   1 a szamitogep valaszlepese,a megfelelo szinre forditja a korongot
   1 a palyaracsozat
   1 a megfelelo szam kivalasztas,korlatozva,hogy csak 1-4 kozott legyen
   1 a jatek vegen ertekeles
   1 a jatek magyarazata
   1 a gep segit,jo lepest ajanl
   1 a fomenu,a megfelelo menupont kivalasztas
   1 Z ,AKINEK T
   1 UDG CODE USR "A",168
   1 TT A FEKETE"
   1 TORRAL 1998-BAN",,,"
   1 ST,VALAMINT,HA  NEM TUDSZ L
   1 S    AZ GY
   1 S    AZ ELLENF
   1 POKE 23606,150
   1 P"''"   2: ELLENF
   1 P MEGMUTATJA A    LEGJOBB L
   1 LT AZ 'X128'-AS"'" SPECTRUM EMUL
   1 LET e=0: FOR k=1 TO 8
   1 LASZD KI: 1-4"
   1 L KORONGJAIT KELL
   1 L EGY EMBER"''"   3: SZ
   1 KEZETES BET
   1 K 2-2 KORONGGAL INDUL,
   1 GRE VAN SZ
   1 GO SUB 1080: NEXT i: LET p=
   1 CLS:PRINT AT 10,7;"ENTER-t":PAUS
   1 BETUKOD 41852,768
   1 ;a$; AT 2,7;a$; AT 9,15;a$;
   1 ;a$; AT 2,6;a$; AT 7,16;a$;
   1 ;"VEZET A FEKETE":
   1 ;"VEZET A FEKETE"
   1 ;"NYOMD AZ ENTER-t":
   1 ;"NYOMD AZ   ENTER-t."
   1 ;"IRD BE  FEK VAGY FEH ?"
   1 ;"GONDOLKODOM!"
   1 ;"ENTER-t":
   1 ;"A FEKETE L
   1 ;"    AZ OTHELL
   1 9,1;a$; AT 6,24;a$; AT 7,18
   1 76,74,75,-11,-10,-9,-1,1,9,
   1 7-n),a: NEXT n: DATA 60,126
   1 560 LET b(r)=p: LET h=r: GO SUB
   1 550 LET j=0: IF r=c THEN LET b(
   1 540 IF g=1 THEN RETURN 
   1 530 IF c=x THEN GO TO 570
   1 520 LET c=c+m(k): GO TO 490
   1 510 IF b(v)=p THEN GO TO 530
   1 500 IF b(v)=4 THEN GO TO 570
   1 490 LET v=v+m(k): IF v<11 THEN 
   1 480 LET v=x: LET r=v+m(k): LET 
   1 460 FOR i=1 TO 2: LET h=x: LET 
   1 15;a$; AT 10,21;a$; AT 5,31
   1 10 REM othello
   1 1-8-ig beszamozzuk
   1 ,AVAGY KI NEVET A V
   1 ,255,231: REM 
   1 ''''" IRD BE A 00-T,HA SEG
   1  a sor tele van,mind a nyolc helyen van mar korong
   1  REJTELMEI:"''''"A J
   1  NYOMD LE AZ ENTER-t"
   1  NYITRAI L
   1  MELYIKET AKAROD ?";
   1  KORONGJA LESZ A V
   1  KORONG LEHET,
   1  GO TO 580
   1  AT 9,7;a$; AT 2,24;a$; AT 
   1  AT 10,17;a$; AT 3,28;a$; A
   1  :"'''"   1: ELLENF
   1  8x8=64 SZ
   1  7,12;a$; AT 9,13;a$; AT 5,
   1  1998' "''''"
   1  1080: LET r=r+m(k): GO TO